(webjump): Use assoc-ignore-case for locating the proper URL.

diff --git a/lisp/webjump.el b/lisp/webjump.el
index 3273a5bbecc4d6bfac7a6c24a286830a9c0dc03c..42d0a4d4f2de0cec6c331500833013942a58a859 100644 (file)
--- a/lisp/webjump.el
+++ b/lisp/webjump.el
@@ -274,8 +274,9 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke
 <nwv@acm.org>."
   (interactive)
   (let* ((completion-ignore-case t)
-        (item (assoc (completing-read "WebJump to site: " webjump-sites nil t)
-                     webjump-sites))
+        (item (assoc-ignore-case
+               (completing-read "WebJump to site: " webjump-sites nil t)
+               webjump-sites))
         (name (car item))
         (expr (cdr item)))
     (funcall browse-url-browser-function